home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / misc / flexcat1_3.lha / flexcat / OptLocaleL.def < prev    next >
Encoding:
Modula Definition  |  1994-06-16  |  3.4 KB  |  105 lines
  1. DEFINITION MODULE OptLocaleL {"locale.library",-38};
  2. (* 04-Sep-92/bp *)
  3.  
  4. FROM SYSTEM IMPORT
  5.   ADR, ADDRESS;
  6. FROM DosD IMPORT
  7.   Date;
  8. FROM UtilityD IMPORT
  9.   HookPtr;
  10. IMPORT
  11.   R,
  12.   ed : ExecD,
  13.   el : ExecL,
  14.   d:LocaleD;
  15.  
  16.  
  17. CONST
  18.   localeName="locale.library";
  19. VAR
  20.   localeVersion:INTEGER;
  21.   localeBase:d.LocaleBasePtr;
  22.  
  23. PROCEDURE CloseCatalog(catalog{R.A0}:d.CatalogPtr); CODE -36;
  24. PROCEDURE CloseLocale(locale{R.A0}:d.LocalePtr); CODE -42;
  25. PROCEDURE ConvToLower(
  26.             locale{R.A0}:d.LocalePtr;
  27.             character{R.D0}:LONGCARD):LONGCARD; CODE -48;
  28. PROCEDURE ConvToUpper(
  29.             locale{R.A0}:d.LocalePtr;
  30.             character{R.D0}:LONGCARD):LONGCARD; CODE -54;
  31. PROCEDURE FormatDate(
  32.             locale{R.A0}:d.LocalePtr;
  33.             template{R.A1}:ADDRESS;
  34.             VAR date{R.A2}:Date;
  35.             putCharFunc{R.A3}:HookPtr); CODE -60;
  36. PROCEDURE FormatString(
  37.             locale{R.A0}:d.LocalePtr;
  38.             string{R.A1}:ADDRESS;
  39.             dataStream{R.A2}:ADDRESS;
  40.             putCharFunc{R.A3}:HookPtr):ADDRESS; CODE -66;
  41. PROCEDURE GetCatalogStr(
  42.             catalog{R.A0}:d.CatalogPtr;
  43.             stringNum{R.D0}:LONGINT;
  44.             defaultString{R.A1}:ADDRESS):ADDRESS; CODE -72;
  45. PROCEDURE GetLocaleStr(
  46.             locale{R.A0}:d.LocalePtr;
  47.             stringNum{R.D0}:LONGINT):ADDRESS; CODE -78;
  48. PROCEDURE IsAlNum(
  49.             locale{R.A0}:d.LocalePtr;
  50.             character{R.D0}:LONGCARD):BOOLEAN; CODE -84;
  51. PROCEDURE IsAlpha(
  52.             locale{R.A0}:d.LocalePtr;
  53.             character{R.D0}:LONGCARD):BOOLEAN; CODE -90;
  54. PROCEDURE IsCntrl(
  55.             locale{R.A0}:d.LocalePtr;
  56.             character{R.D0}:LONGCARD):BOOLEAN; CODE -96;
  57. PROCEDURE IsDigit(
  58.             locale{R.A0}:d.LocalePtr;
  59.             character{R.D0}:LONGCARD):BOOLEAN; CODE -102;
  60. PROCEDURE IsGraph(
  61.             locale{R.A0}:d.LocalePtr;
  62.             character{R.D0}:LONGCARD):BOOLEAN; CODE -108;
  63. PROCEDURE IsLower(
  64.             locale{R.A0}:d.LocalePtr;
  65.             character{R.D0}:LONGCARD):BOOLEAN; CODE -114;
  66. PROCEDURE IsPrint(
  67.             locale{R.A0}:d.LocalePtr;
  68.             character{R.D0}:LONGCARD):BOOLEAN; CODE -120;
  69. PROCEDURE IsPunct(
  70.             locale{R.A0}:d.LocalePtr;
  71.             character{R.D0}:LONGCARD):BOOLEAN; CODE -126;
  72. PROCEDURE IsSpace(
  73.             locale{R.A0}:d.LocalePtr;
  74.             character{R.D0}:LONGCARD):BOOLEAN; CODE -132;
  75. PROCEDURE IsUpper(
  76.             locale{R.A0}:d.LocalePtr;
  77.             character{R.D0}:LONGCARD):BOOLEAN; CODE -138;
  78. PROCEDURE IsXDigit(
  79.             locale{R.A0}:d.LocalePtr;
  80.             character{R.D0}:LONGCARD):BOOLEAN; CODE -144;
  81. PROCEDURE OpenCatalogA(
  82.             locale{R.A0}:d.LocalePtr;
  83.             name{R.A1}:ADDRESS;
  84.             tags{R.A2}:ADDRESS):d.CatalogPtr; CODE -150;
  85. PROCEDURE OpenLocale(name{R.A0}:ADDRESS):d.LocalePtr; CODE -156;
  86. PROCEDURE ParseDate(
  87.             locale{R.A0}:d.LocalePtr;
  88.             VAR date{R.A1}:Date;
  89.             template{R.A2}:ADDRESS;
  90.             getCharFunc{R.A3}:HookPtr):BOOLEAN; CODE -162;
  91. PROCEDURE StrConvert(
  92.             locale{R.A0}:d.LocalePtr;
  93.             string{R.A1}:ADDRESS;
  94.             buffer{R.A2}:ADDRESS;
  95.             bufferSize{R.D0}:LONGCARD;
  96.             type{R.D1}:LONGCARD):LONGCARD; CODE -174;
  97. PROCEDURE StrnCmp(
  98.             locale{R.A0}:d.LocalePtr;
  99.             string1{R.A1}:ADDRESS;
  100.             string2{R.A2}:ADDRESS;
  101.             length{R.D0}:LONGINT;
  102.             type{R.D1}:LONGCARD):LONGINT; CODE -180;
  103.  
  104. END OptLocaleL.lib-38
  105.